El Mac 7/El Mac 7.iso/Infotenimiento/Makers of the 20th Century/Data/SHARED.DIR/01037_spider drag.ls

Text File | 1996-03-14 | 421 b | 18 lines

on mouseDown
  set omh to the mouseH
  set omv to the mouseV
  repeat while the mouseDown
    set mh to the mouseH
    set mv to the mouseV
    set dh to mh - omh
    set dv to mv - omv
    repeat with i = 36 to 43
      set the locH of sprite i to the locH of sprite i + dh
      set the locV of sprite i to the locV of sprite i + dv
    end repeat
    updateStage()
    set omh to mh
    set omv to mv
  end repeat
end